Private Sub Button1_Click(ByVal sender As System., ByVal e As System.EventArgs) Handles Button1.Click
SaveFileDialog1.ShowDialog()
FileOpen(2, SaveFileDialog1.FileName & ".reg", OpenMode.Output)
PrintLine(2, TextBox1.Text)
FileClose()
End Sub
